dsM <- dplyr::filter(dsL, id <=300) %>%
dplyr::select(id,sexF,raceF,year,attend,attendF)
#
#
#
p <- ggplot2::ggplot(dsM,aes(x=year,y=attend))
p <- p + geom_line(aes(group=id), color='firebrick',
alpha=.1,
position=position_jitter(w=0.3, h=0.3))
p <- p + geom_point(shape=21, color=NA, fill="blue4",
alpha=.3, size=1.2,
position=position_jitter(w=0.3, h=0.3))
p <- p + plotTheme
p <- p + scale_x_continuous(limits=c(2000,2011),
breaks=c(2000:2011))
p <- p + scale_y_continuous(limits=c(0,8),
breaks=seq(1,8, by=1))
p <- p + labs(list(
title="How often did you attend worship last year?",
x="Year of observation", y="Church attendance"))
p <- p + facet_grid(sexF~raceF)
p
Note: press "p" for zoom